HPAVC/HPAVC CD-ROM.iso/pc/PASSRC.ZIP/REALMATH.PAS

Pascal/Delphi Source File | 1991-02-04 | 633 b | 26 lines

                                (* Chapter 3 - Program 4 *)
program Real_Math_Demo;

var A,B,C,D : real;

begin
   A := 3.234;               {simply assigning a value}
   B := A + 1.101;           {adding a constant}
   C := A + B;               {summing two variables}
   D := 4.234*A*B;           {multiplication}
   D := 2.3/B;               {division}
   D := A - B;               {subtraction}
   D := (A + B)/(12.56-B);   {example of a multiple expression}

  {It will be left up to you to print out some of the above values}
end.




{ Result of execution

(There is no output from this program )

}